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Sydney Brown: KONG 
a fantastic new game from Australia 


News and Reviews 


by Mike Dunn, Co-Editor 


This month we continue having some very nice games. Sydney 
Brown from Australia has sent a number of very fine games from 
Australia for us. The first is KONG which is of commercial quality, as 
are many of his games. If you have a compilier, the game might be as 
good as any on the market. Another fine game from Stan Ockers, as 
usual very nicely done, in ACTION! This game is also a very nice clim- 
bing type game. Also in ACTION! is a Demo program from the author 
of ACTION!, Clint Parker. More programs in PILOT, and some machine 
language utilities. 


| notice the last issue of Softside not only doesn't have anything at 
all for Atari, there are no listings at all — no reason given either. Since 
most of us subscribe to Softside for the programs, and there are no 
programs, | wonder what it all means. | recieved a very beautiful book 
from Reston/ Ashton-Tate, Through the Micromaze, a Visual Guide 
from Ashton-Tate, by Wayne Creekmore ($10). An outstanding work of 
art, it is a beginners guide to computers and their applications. 
Designed for the business computer user, | could recommend it for 
any one. 


For the first time since | have had an Atari, | am writing an article on 
a non-Atari computer. When we began the ACE Newsletter about 4 
years ago, | had to write a simple word-processor since none for the 
Atari had been released. Using the DOS as an Editor and a simple 
BASIC program for a text formater, the first issues of ACE were hatch- 
ed. About 9 months later, the first wordprocessor for the Atari was 
developed, Text Wizard by DataSoft. This very easy to use, versatile 
program became the mainstay for us. About 6 months later came Let- 
ter Perfect, a more powerful program, but which uses non-Atari DOS 
files, so Text Wizard remained the best for the newsletter. About a 
year and a half ago, Stan Ockers sent us TinyText, the first public do- 
main text editor particularily designed to send in articles for the 
newsletter on cassette. This has been gradually upgraded by Stan and 
others to a much more powerful wordprocessor. AtariWriter was 
released last year, and is now the one | use the most for the newslet- 
ter, although | still prefer Letter Perfect for longer papers. | now have 
the Austin Franklin 80 column board version, and having 80 columns is 
a nice advantage. 


Now | have an entirely new kind of peripheral for my Atari. A NEC 
8201A Lap computer, very similiar the Radio Shack Model 100. This is 
a small notebook size machine with a built in 40 column by eight line 
LCD screen, a very nice keyboard, and several built in programs, in- 
cluding a nice text editor. It is powered by re-chargable batteries, and 
using CMOS memory, your files stay in place when the machine is 
turned off. It includes a fine terminal program for communicating with 
a modem (not included as in the Radio Shack) or with another com- 
puter, a very powerful BASIC, and a fine cassette based storage 
system using filenames and searchs your cassette to find the pro- 
gram. Any casette recorder can be used, but the one designed for it 
even has a highspeed search function! Another option is a 32K bubble 
memory cartridge which acts as a memory disk drive. It can be remov- 
ed and will hold its files for 6 months without additional charging. 


What does all this have to do with my Atari? | find the screen on the 
desk is a more natural way to write and | can carry the unit around and 
write in my office or whereever. Then, using a RS-232 “null” cable (a 
modem cable with leads 2 and 3 reversed on one end), | can load the 
files right into my Atari for final Editing and printing. The easiest way 
to do this is to use Atari Writer, and “Load” from “R1:”, sending the 
file from the NEC using the built in telecom program. Very easy and 
very fast. After using this nice portable machine, | think this is what 
the next generation of home computers will be like — much more han- 
dy than the big monsters we all have! A truly useful item. 


You can now get an official ACE Iron-On Patch from us. George 
Suetsugu took the offical ACE logo given to user groups by Atari and 
our cover for the April 1983 issue, and made iron-on patches. One will 
be included for free with each order from the exchange library, or $1.00 
for extras. Get them from our librarians, Ron and Aaron Ness, 374 
Blackfoot, Eugene, OR 97404. 





BUMPAS REVIEWS 


More on the new drives: 

With the help of the folks at Computer Palace and my friend Nick 
Chrones, I’ve had the opportunity to play around with the 3 new drives: 
the ASTRA 1620, the TRAK AT-D2, and the INDUS GT. I’m personally 
using the Indus, but my opinion of the other two drives has improved 
over the past couple of weeks. 

I'm not going to discuss the compatibility problems caused by com- 
mercial software which use illegal entry points to the operating 
system. | think the Indus is a little more compatible than the other two, 
but | admit this opinion is 2d hand. | am going to discuss compatibility 
problems between the drives in double density mode. In single density 
mode each of the drives can read and boot a disk formatted and writ- 
ten with any of the other drives. 

In double density mode, | have found some problem booting disks 
on one drive which were formatted and written on another drive. | did 
not discover any problem in this area on the Astra. And disks format- 
ted and written on the Astra seem to boot fine on either the Trak or the 
Indus. And disks formatted and written on the Trak seem to boot 
perfectly well on the Indus. However, several disks formatted and writ- 
ten on the Indus failed to boot on the Trak. We tried several operating 
systems, including DOS 2.0, DOS XL versions 2.2 and 2.3, and MYDOS 
version 3.5. 

We found we could boot a DOS on the Trak and then read files on 
another disk. These files run just fine. Next, we formatted a disk and 
wrote the TADS modified DOS 2.0 (explained in the Trak documenta- 
tion). A disk formatted and written according to the Trak documenta- 
tion boots and runs fine on each drive. My conclusion is the Trak is 
slightly less compatible in the double density mode than the other two 
drives. If you experience any compatibility problems, just boot up the 
Trak according to its documentation, and then read in files from the in- 
compatible disk separately. 

The Astra and the Indus both provide the user with a version of DOS 
XL. The Astra comes with version 2.3 and complete documentation. 
The Indus comes with version 2.2 and almost no documentation, and 
the information provided has some errors. lve heard the Indus people 
will provide full documentation to users requesting it. l've made my re- 
quest, but have not received it yet. There are differences between the 
two versions. Version 2.3 with the Astra has four additional files: 
DOSXL.XL with 58 sectors, and 3 command files of one sector each: 
NOVERIFY.COM, VERIFY.COM, and RS232FIX.COM. 

The Indus comes with a disk containing a word processor produced 
by Elcomp. They also promise to send a spreadsheet and database 
manager, but these were not included with the Indus when | bought it. 
If you are considering buying the Indus and the software is an induce- 
ment to you, | advise you to think again. Buy the Indus ONLY because 
it’s the drive you want. 

It is a nice drive. It's the quietest of all 3. The front panel buttons 
permit you to protect an unprotected disk, to cycle through 3 density 
modes (810 single, 815 double, and 1050 dual), to display the track be- 
ing read, and the error number of any error detected by the drive. The 
Astra provides only a busy light. The Trak provides lights to show 
single or double density mode and the track being read. Each of the 
drives will automatically switch to the mode used by a disk inserted, 
but the mode of the Indus can be altered by using the switch on the 
front panel. The others cannot do this, although all three provide soft- 
ware control over the density modes. The Trak and Indus have dip 
switches in the rear panel to select the drive number from 1-4. 

The power switch on the Indus is in the rear (the others are in the 
front). This is inconvenient, and the power cord connection is next to 
the switch on the outside edge. Its connector is not very positive, so | 
find myself disconnecting the power when trying to turn the power on. 
The front panel is pretty full, but there should be room for a power 
switch someplace. The Indus also provides a fancy plastic lid which 
closes over the front of the drive. This probably helps keep dust out of 
the drive, but you have to remember to use it. 


Advanced Programming Tools 
(Tricky Tutorial no. 14, by Educational Software, 4565 Cherryvale Ave., 
Soquel, CA, $30) 


This is an excellent aid for learning to program better. The 51-page 
manual takes you step-by-step, explaining the use of the USR func- 
tion. 

Seven routines are provided, with complete documentation of all 
the coding required to produce the subroutines. These routines may 
be used in programs you write. All they ask is for you to give them 
credit if you use them. 

The tutorial is helpful if you want to create and use other machine 
language routines in your programs. The TT#14 disk also contains a 
very good character editor and another program called “LINKBAS”. 


This program alone makes the disk a worthwhile addition to 
anyone’s library. LINKBAS takes binary data from a compiled 
assembly language routine, moves it toa string variable to be used as 
a USR call in a BASIC program, and even generates the actual BASIC 
code automatically! All the user has to do is ENTER the generated 
code into the program. 

These tutorials are getting better and better. ESI deserves our ap- 
preciation for these excellent programs. 


The Programmers Toolkit 
(Sure Soft, 8177 S. Harvard, suite 428, Tulsa, OK 74137, $30) 


This program is a little misleading. The documentation suggests the 
user consider this disk as something akin to a toolbox used by a 
carpenter to build a house. However, this toolbox must be left inside 
each house the carpenter builds. 

The disk contains over 30 machine language routines and about 40 
demonstration programs for using the routines. The advertizing and in- 
troduction to the documentation lead one to believe one may use 
these machine language routines in one's programs. Well, you can, if 
you boot up the Toolkit disk before you load and run any BASIC pro- 
gram using the supplied routines. 

So, actually the programmer is not putting these routines into any 
program one might write. Users will not learn much about programm- 
ing by using this disk unless the object code can be disassembled to 
study the machine language routines. But if the user has the skill to do 
this, he probably already has his own personal “tool kit” of most of 
these routines. Some of the more interesting routines include a string 
editor, right and left justification, and a routine which searches a str- 
ing for the occurence of a sequence of 1 to 256 characters. This is a 
good program to excite a user about the possibilities of machine 
language routines in BASIC programs. 

If you don't mind not being able to share the programs you design 
with others and are content to have to boot up “The Programmer's 
Toolkit” before loading and running any of your programs which use 
the routines supplied, then this disk does a creditable job. 


CARRIER FORCE 
(SSI, 883 Stierlin Rd., Bldg. A-200, Mountain View, CA 94043, $60) 


Carrier Force is a fun-to-play hide-and-seek naval wargame for one 
or two players. It is really 4 games in one. Players may choose to play 
one of four campaigns: Coral Sea; Midway; Eastern Solomons; and 
Santa Cruz. In the one-player mode the Atari plays the Japanese. Four 
levels of difficulty may be played. The game-turns are hourly, and each 
campaign will end in about 4 days, if the players do not end it sooner. 

The four games are played on one of two maps, each of which is a 
grid of hexes approximately 30x30 covering almost 4 million square 
kilometers each. The maps scroll across approximately 8 screens. The 
islands are green, the sea is black, and the task forces are blue (USN) 
and yellow (IJN). 

SSI claims every ship and aircraft is represented in this game. | 
don't doubt the claim. Players may move each individual ship and 
plane. Aircraft may be armed with bombs for attacking either ships or 
land bases. Planes must be readied on the runway before they may 
take off. Weather is a factor as one must watch wind direction and 
cloud cover in order to most efficiently use the forces available. 

A large red cursor is used to make moves on the screen. In the 
2-player mode, both players cannot watch the screen at the same time 
except during the joint combat phase at the end of each turn. l've been 
unable to get very far into any 2-player scenario except for Midway, 
because it crashes on me. But the solitaire games work fine. SSI has a 
good reputation, so if it is a bug you can be sure they'll fix it. 

Most of the coding is in BASIC, so it should be relatively easy to 
modify the composition of the task forces to create hypothetical 
Scenarios. | plan to enjoy Carrier Force for quite awhile. 


Last summer, Consumer Guide magazine called Mike Dunn to ask 
him to write a book of reviews of top Atari software for a fall publica- 
tion. Mike said he had no time and suggested they ask me. They 
wanted someone from the famous ACE to do the job. So they did. And 
! did. | put together a team of reviewers from among ACE members in 
California and Oregon and we finished the work in less than 3 months. 
The book of reviews of the Best Atari Software (wire-bound, $5) has 
now been on the market for over a month. The book is the result of the 
work of about 2 dozen ACE members in Oregon and California. It con- 
tains reviews of nearly 200 pieces of the best software as of 
September, 1983. We did more than 200 reviews, but they omitted 
about 30 of them, including Data Perfect, Armudic, Synassembler, and 
some other good items. They also failed to credit all the people work- 
ing on the project. Even my name appears only in small print on an in- 
Side page. Each reviewer wrote about the items they reviewed. | re- 
wrote each one at least twice. And editors re-wrote each review at 
least twice more after | sent them off. Nevertheless, the book is one of 
the most helpful of its type on the market — especially given its 
reasonable price. 

— Jim Bumpas 


THE RETURN OF HERACLES 


Quality Software $33 

The Return of Heracles is a graphics adventure exploring Greek 
mythology. One to four players may become an ancient Greek hero, 
heroine, or even a winged horse. You move your Character around in 
ancient Greece, gathering gold, Slaying opponents, sharpening skills, 
and trying to complete the twelve tasks set by Zeus, head god of 
Olympus. Several heroes may work together, and a single player may 
control several heroes at once. There are nineteen heroes at the begin- 
ning, but others may be found along the way. But once a hero is dead, 
he can’t be resurrected. 

The Oracle of Zeus is where characters discover the twelve tasks of 
Zeus. Players must travel to the Oracle and approach the sacred tree 
of Zeus. Then he reveals a task. Tasks do not have to be done in the 
order assigned by Zeus. The Oracle of Delphi can help the players. 
Players must first travel there, and for a suitable offering of drackmae 
(gold), she will give a clue to help. Sometimes the clue isn’t for the 
task Zeus has currently assigned. If players can’t handle the current 
task, they can go back to the Oracle of Zeus and get a new one. 

An interesting feature is that, after Start, the game is almost totally 
controlled by joystick. The exception is the SYSTEM RESET button. 
Pressing this will start the game from the very beginning (if THE 
RETURN OF HERACLES disk is in drive #1). You can use the joystick 
to move your character, stop, rest, defend or attack. Using the KNOW 
THYSELF option, a player can examine his traits, his weapons, and his 
armor. Other commands include add hero, desert, change message or 
monster speed, save game, and drop armor or gold. 

The combat system is quite good. By using probabilities based on 
dexterity, weapon skill, size, and speed, a well-rounded combat 
System is created. A touch of luck is included as characters always 
have a small chance to hit or miss. Also, weapons can break at the 
wrong time, or a lucky hit can do more damage than normally possible. 
The two types of combat are normal (using a sword), and hand-to-hand 
(using a dagger). You must be adjacent toa player in order to attack it, 
and in the same space as an Opponent for hand-to-hand. You must 
always attack a hand-to-hand opponent before an adjacent one. 

The instruction book includes a glossary of important characters 
and places, and a chart with ability scores of everybody in the game. 

The graphics are excellent. Sounds are also quite good. It is obvious 
the writer did some research for all the names and places. It is very 
well done. This is for the true adventurer, but at the intermediate level. 
A bit of Greek mythology helps too. An excellent buy. 

— Aaron Ness 


FROM THE LIBRARY 


This past month has, again, been a busy one. The inquiries 
generated by the article in the December issue of Antic continue to 
come in. We have noticed a large increase in the number of requests 
for cassettes. Most seem to be from people who received their com- 
puters for Christmas. 

For those of you who are new to the computer, we will pass along 
this hint from the Jacksonville (Fla) ACE Newsletter. Don't take a 
chance on ruining your tape or the pressure roller in your cassette 
recorder. As soon as you have finished loading or saving that program 
- HIT THE STOP/EJECT BUTTON. It is possible to “dent” the tape or 
get a flat spot on the pressure roller if you leave the play button down 
without the recorder operating. 

New items this month: “Official” ACE iron-on patches. See the April 
1983 newsletter cover. These are about 3 inches Square and come in 4 
colors. We have obtained a small supply and will send one free with 
each disk or tape ordered during the month of March. Please specify 
red, green, blue, or black and if possible we will send that color. Addi- 
tional copies will cost $1.00 each. 

Thanks to the efforts of Jim Carr and Deloy Graham, we now have 
documentation available for the Source Codes Disk and Utility Disk 
#2. 

Things to watch for in the near future: a disk of goodies in FORTH, a 
disk of games in ACTION, and perhaps, another utility disk. 

Things we need: We have requests for programs in chemistry, 
physics, and math programs for geometry and above. If you know of 
any programs of these types that are public domain, let’s get together. 

Let us know what kind of programs you need. Just drop a note to 
the editors, the library or leave a message for the SYSOP on the 
bulletin board. We will try to see what we can find. 

— Ron Ness 


ERACE 


The Incredible Laboratory 


Strategies in Problem Solving 

The Incredible Laboratory (Sunburst Communications, $49) gives 
you the chance to create your own monsters (some quite silly) by com- 
bining chemicals from lists provided. Each chemical will alter the ap- 
pearance of a body part, such as head, eyes, arms, etc. There are six 
different possibilities for each body part so there are many possible 
combinations to try and produce. ; 

Even though making a particular monster is very challenging, there 
is much more to be learned from this program. The Incredible 
Laboratory was designed to help students learn about the trial and er- 
ror process and to help them develop good note taking skills. 

In the lower level of play, a given chemical will produce a constant 
effect, and-it is up to the student to determine what the effect is. By 
selecting chemicals, or by leaving them out of the “foumula”, the ef- 
fect of the different chemicals can be learned. Good note taking will 
be a big help in keeping things in order. 

When you think you know how to control your experiments and 
make a particular monster, the challenge mode of the game can be us- 
ed to test your skills. 

The graphic drawings of the monsters are creative without being 
gruesome. The laboratory and the monsters are very well done and add 
to the quality of the program. 

There are five different levels of play from novice to scientist. In the 
upper levels more chemicals are used. They may be combined to pro- 
duce new effects, and each time the program is run their effects 
change. The challenge round can accommodate two players, and each 
of the three main levels has a challenge round. 

The ground rules given as the instructions at the beginning of the 
game are not very complete and can lead to some some confusion of 
the objectives of the game portion of the program. But the teacher’s 
guide has all the information needed to run the program and get the 
most out of it. There are several aids and lessons included that will 
help introduce the student to the processes of trial and error and 
organized note taking. Although the program is intended to be used in 
the classroom, with the help of a parent it can be just as effective in 
the home. | strongly suggest the manual be read and the supporting 
material used as needed to get the most out of this program. 

As with the other programs | have seen from Sunburst Communica- 
tions, the documentation of the program is outstanding. if the program 
is used as suggested in the teacher’s guide a great deal can be learn- 
ed while making monsters. 

Some criticism has come up because all of the chemicals are not 
names of real chemicals, but then have you ever seen a real monster? 

The Incredible Labratory is intended for use by those in the third 
grade and older, with a reading level of at least the third grade. Adult 
supervision and instruction will be necessary at times. The program 
requires 48K, a disk drive, joystick is optional, and will run on all Atari 
computers. 

— Robert Browning 


SPARE CHANGE 


(Broderbund Software, $32) 

Occasionally, a software company will release a game that’s a lot of 
fun to play, maybe a little strange, and hilarious to watch. If this kind 
of game interests you, then this is your disk. 

As the owner of the Spare Change Arcade, you must keep your sup- 
ply of game tokens in hand. But that's not always easy. Especially 
when two “Zerks” which escaped from a video game are out to steal 
all your tokens and put them in a piggy bank so they can retire. 

You must move your animated man under a token machine and grab 
a token. Then you drop it in your token bin. If all the token machines 
run out, you can go snatch a dollar from the cash register and reload 
the machine. Sound simple? Not really, when those two Zerks are fran- 
tically checking machines, and taking them from your bin. 

The Zerks will cooperate to keep you from taking back the token. 
They will pass it back and forth, and dodge your man in an effort to get 
the token to the piggy bank. They have a number of methods for 
depositing the token in the bank. Sometimes they will drop-kick it in, 
or just toss it. Fortunately, they are very poor shots, and miss frequent- 
ly. 

There are ways you can get back at them, though. There is a jukebox 
which will play a nice tune. While the Zerks dance wildly to this tune, 
you're collecting tokens! There are many other funny ways to delay 
the Zerks, but you'll have to find them. 

The graphics and sound are very well done — especially the 
musical scores. Overall, this is a very good game, and | hope to see it 
on this year's best seller list. 

— Tim Ebling 


Review: RAINY DAY ACTIVITIES FOR THE ATARI 
(Nancy Kozak Mayer, Ed.D., Reston, $12.95) 


The author, Nancy Kozak, aptly describes Rainy Day Activites for 
the Atari as a book "designed to make the shortest possible program 
listings so that parents or older children would not have to spend so 
much time typing in the program that there would be no time left over 
for having fun." And, thus she has provided parents and young 
children, aged 3-9 years, with program listings (none over 20 lines long) 
for vidoegames, letter, word and number games, musical activities, 
and graphics. 

The intent of this book is not to teach programming, but to make 
available over 50 simple program listing for children (and their parents) 
to successfully type and enjoy. Miles, my 5-year-old computer en- 
thuisiast son, was able to list the shorter programs with ease. The sug- 
gested variations for many of the programs gave him the opportunity 
to systematically change programs. This is a real plus, since he is in- 
clined to list all programs he works with and randomly change listings 
just to see what will happen. Additionally, the book offers clear in- 
structions including a “how it works", and “how it looks" section with 
each listing. 

As user friendly as this book is, some skills in programming and 
knowledge about how one's computer works are needed. My 
knowledge of computers centers around using word processing pro- 
grams, data base systems, and evaluation and use of programs 
created by other, more patient souls with programming skills. Luckily, 
Miles, my five-year-old, knew the Basic command for saving programs 
to disks, and had enough knowledge about program errors and pro- 
ofreading and Basic editing commands to debug incorrectly listed pro- 
grams. He patted his mother on the shoulder and said, “Mom, it's pro- 
bably easier to list programs on rainy days." 

Rainy Day Activities for the Atari is a recommended addition to the 
library of families who own Atari computers. It could be especially 
useful for families who have little programming background, and/or 
young children beginning to program. The book can be independently 
used by a 5-year-old (with good reading skills). It offers a variety of ac- 
tivities, including some interactive games for more than one child (or 
parent). Listings are short, and often program variations are provided. 
Of course, the ultimate test is. . . will your child use it. My son, Miles 
says he thinks other children will like and use Rainy Day Activities. 

— Alice and Miles Erickson 


PILOT'S MEASURE 


by Carl Schwartz (ACE of Cleveland, 1/84) 

Measure is a PILOT program designed for children. It provides prac- 
tice in measuring or guessing the size of a line. While the 'lesson' part 
of this program is simple the reward can provide a iarge variety of 
designs. The turtle is told to DRAW,TURN, and repeat (the drawing) a 
certain number of times. The entire drawing routine is located on line 
76. 

Programming in PILOT is easier and faster than BASIC. If you havea 
child from five to twelve, or have some difficulty writing original 
BASIC programs, perhaps PILOT can help. Since PILOT uses more 
English type statements it can provide a user friendly environment for 
a beginner. For example, instead of using a number, PILOT's version 
of GOTO (called J:, for jump), tells the program to jump to the *LABEL 
(YOU give it a name). Also strings do not need dimensioning, text input 
is greatly simplified, and a LOGO like (moves according to his own 
current direction) turtle quickly draws your graphics. For the more ex- 
perienced user large print screens and many of Atari BASIC's POKES 
(called Pointers) are supported. 

A personal note: | am a special education teacher looking for good 
public domain software. Due to the special needs of the children in my 
school most commercial software is useless. Please write me at the 
Ashtabula County Board of Mental Retardation, 2506 South Ridge 
East, Ashtabula Ohio 44004, if you have a program we could use or you 
want a list of software we have found useful. 

We have about 30 programs available for trading!! My students read 
(those who can) at about a preschool to 1st grade level and may have 
physical handicaps requiring special adaptive devices (for example a 
mounted joystick). These teenagers are not handicapped by a negative 
attitude, and once a job (or lesson) is learned they can do it well. 
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8 DIM P$(1) :L=1:G05UB 10088 :LL=1:ML=3: 
5028 :H5=8 

REM ATARI COMPUTER ENTHUSISTS 
REM 2662 VINE MAPLE DR 
REM A 
REM 
REM 
REM 
REN 
REM 
REM 
198 H-58:H8C0-21:U-97:CT-8:C-32:EN-1:D-71: 
DN-8:4-6:Y-21:P$ (U, Ut 11) R19 :POKE 623,1 
:NSzR1$ :8176:Y1-1:E1-8:D1-1:081-0:C1z3 
192 EN-8:POKE S3251,H:POKE 53243,81:P0 
KE 53249,89 

195 POSITION 15,0:? #6;" "IÓPOSITIO 
N 15,0:? 85;5C; :IF ML)i THEN FOR N-1 T 
O ML-L:POSITION M-1,232:? 106;'$?"; : NEXT 
EI 

288 ST-STICK(8):HD-8:IF 5TO15 THEN GO 
SUB 57T*X18:1880:500ND 8,35*109900,8,4 :P0 
KE 52278,8:1F CT-8 THEN P$(U,U*13)-M$ 
205 MC-MCt1:50UND 8,0,0,0:IF MC)2 THEN 
HETO 

218 IF STRIGC@)-@ OR CTO THEN GOSUB 1 
FEI 

220 IF YY1 AND ABSCUXI-X3(Z THEN EN-1: 
4-6: ¥=1:DN-@:0-i 

250 PP=PEEK(532553:IF PP=2 OR PP-3 OR 
PP-6 OR PP-7 THEN GOSUB 2608 

268 PP<PEEK (53263): IF PP-4 THEN 3000 
270 IF RI THEN 289 

280 EXSEX+1:1F Eici THEN Ei-8:G605UB 46 
8 1126 

281 IF PN1)8 THEN 285 

282 LOCATE HitDi,Vi,Z:C@LOR CisPLOT Ki 
,YA:IF 2-119 OR 2-120 THEN Z=32 

283 H1-H1*D1:COLOR 119:PLOT X1,Y1:C1-Z 
IF 1-19 OR NLH OR KR-INT CZEXRMD (972 2 
THEN Di1--D1:081-1:60T0 287 

284 GOTO 287 

285 LOCATE Hi, Viti,Z:COLOR CL:PLOT Hi, 
VA: VIZVIFI:COLOR 128:PLOT 41, Vi:Ci-Z:d 
Hi1-DN1fti1:IF DNi-4 THEN DN1-O 

287 IF Y1-22 AND DNIDGO THEN COLOR Ci:P 
LOT X1,Y1:H1-26:Y1-1:E1-21:D1-1:DN1-8:C1 
=32 

288 GOTO 298 

289 IF EX(80 THEN 298 

290 IF EN-1 THEM EN-8:605UB 488:H-6:PO 
KE 77,8 

291 IF DW)>@ THEM 295 

292 LOCATE K+D,Y,Z:1F Z-119 OR Z-128 T 
HEN 2-12 

293 COLOR C:PLOT X,Y:K=X*D:COLOR 119:P 
LOT X,Y:C-Z:IF X-19 OR X-8 OR N-INT(28 
















ws Go NM Gh YN he God bé ks 


Sydney Brown: KONG 


XRNDCO)) THEM D--D:DN-1:G0TO 297 

294 GOTO 297 

295 LOCATE X,Y*1,Z2:COLOR C:PLOT X,Y3Y= 
Y*1:COLOR 128:PLOT X,Y:C=Z:DMZDM+1: IF 
DN-4 THEN DN-B 

297 IF Y-22 AND DIDO THEN COLOR C:PLOT 
K,Y:N-6:YZ1:EN-1:D-1:08-8:0-32 

298 IF EX>90 THEN EN-98 

299 POKE 53258,128-H1:60T0 288 

488 POSITION 5,8:? 6;"i":POSITION 5,1 
:2 46;" j":FO0R W1 TO 49:MEXT hi 

418 POSITION 5,8:7 86;"k": POSITION 5,1 
:2 H5;"1w":FOR W1 TO 14:MEXT W: RETURN 


999 GOTG 999 

19888 IF CT-8 AND PEEK(SI255))1 THEN RE 

TURN 

1881 CT-CT*1:IF CTS THEN 1818 

1902 P$(U,Ut11)-J$: HZH* MD: IF CT-1 THER 
SOUND 8,21,6,8 

1805 RETURN 

1818 CT-8:50UND 0,8,8,80:IF HB--1 THEN 

PSU, Ut 112) L2$ t RETURM 

1019 P$(CU,U*11) ZR2$ : RETURN 

1858 GOTO 1876 

1868 GOTO 1070 

1078 IF (U-133/12O0 INT CCV-133/12) THEN 
RETURN 

1072 IF N(200 THEN MDS1:M=N+4:POKE 532 
51,H:IF RI THEM MS=R15:RETURN 

1075 M5=R25:RETURN 

1898 GOTO 1118 

1198 GOTO 1118 

1118 IF U-S THEM 1112 

1141 IF (Y-13)/12 0 INTCQ(QU-1212/12) THEN 
RETURN 

1112 IF U-13 AND H-144 THEN RETURN 
1113 IF M>50 THEM ND=-1:H=H-4:POKE 532 
51,H:IF WI THEN MSLIS: RETURN 

1115 H$-L2$:RETURN 

1130 RETURN 

1148 IF CT)Ə OR PEEK(53285)-8 THEM RET 
URE 

1141 IF PEEK(SI255) O4 THEM RETURN 
1142 H-48*INTCCH-442/8)X8:POKE 53251,H 
:P$C0,U£1227C1$ 

1143 IF OU OR (H-144 AND UOS) THEN Y 
zU-2:8C-SCt SSH L SPOSITION 15,8:7 16;5C 
1145 IF WR THEM HS$-CIS:RETURN 

1146 IF Wi THEN M$-C29:RETURN 

1149 RETURN 

2088 HL-ML-1:FO0R W159 TO O STEP -7:50 
UND 0,49,8,INTUW/10) : POKE 712,2548RND € 
0) :MEXT M;POKE 712,8 


2818 P$(U,U*12)z"99999999999999:U23?:. 


H-52:POKE 53251,H:CT-8:P$ (V, Ut 13) -R1$: 
POKE 53278,8 


5 


2828 POSITION 6,0:? 116;"N'"1G05UB 20108 
:605UB 2810041088L:G05UB 20500 

2040 IF ML>@ THEN 190 

2899 GOTO 6888 

1880 POKE 51258,120:RESTORE 3276@:FGR 
M-774 TO 783:READ A:POKE CBX256+M, A: RE 
XT H 

1018 POKE 53251,128:P$(5, 16) -H$ 

3820 FOR KK-1 TO 2:FOR HW-i4 TO 7 STEP 
-1:FÜ0R WAS TO 8 STEP -1:SOUND 8,H,10 
,WHIMEXT WHINERT WiWEXT KK 

3058 COLOR 32:PLOT 5,8:PLOT 5,1 

1851 FOR W-81 TO 217 STEP 8:POXE 53248 
,W:POKE 53249,W+8:FOR A=15 TO @ STEP - 
1:SOUND @,128,8,0:SOUMD 1, 122, 8, 4 

3052 FOR BL TO 4:NENT B:MEXT A:FOR A= 
1 TO 14:MEXT A 

3854 IF NO 105 THEN NEXT W:GOTO 3057 
3055 FOR Azi TO L:FOR Z=5@ TO 108 STEP 
1.3: SOUND 0,Z,10,15:S0UND 0,158-Z,12, 
18:NEXT Z:SOUMD 8,@,0,@:FOR Z=1 TO 35 
3056 NEXT Z:MEMT A:MEXT H 

1057 FOR H-1 TO 188:NENT MiFOR H-255 T 
0 18 STEP -3:50UND 0,N,10,4:MEXT N 
1858 FOR H-1 TO LLX2:5C-SC*58:POSITIOMN 
15,8:? M6;5C:FOR AS TO 8 STEP -1:50 

UND 0,7,10,0/3:8EXT A:NENT N 

3860 FOR Nzi TO SOBINENXT HW:L-L*i:]LL-LL 

*1:IF L>3 THEN 1-3 

19980 POSITION @,0:7 86;"5":G05UB 20108 

3998 GOSUB 201080*180*L:F0R H-774 TO 78 

I:POKE CBX2564H,0:HENT W:P$(S,Util)cU9 

EE Eegen 

1999 GOSUB 20500:RESTORE 32068:FOR W=7 

74 TO 783:READ AIPOKE CBX2S6+H, A: NEXT 

M:POKE 53278,8:G0T0 198 

5888 POSITION 15,6:7 N6;5C: POSITION O, 


2:1F 5C)HS THEN HS-SC 





SITION 14,4:? 16;H5; :POSITION 14,3:7 8 
5;5€; 

5398 POSITION 8,23:? 46;"_A4_ATREBSA EN 

EISi": POSITION 0,8 

5995 IF PEEK(S327934>6 THEN POKE 711,1 
HT CRUD {(O}%16)%16412:G0TO 5995 

5997 ? M6;'"'N":G05UB 20100:60SUB 205808 
5998 GOSUB 20200: FOR N-774 TO 783: POKE 
CBX256tH,8 : NEXT H:P$(S,Ut11) "9999999 
9999999999999 

5999 L-1:ML-3:5Cz-8:RESTORE 32060:F0R H 
-774 TO 783:READ A:POKE CBX256*H,A: HEX 
T N:POKE 51276,0:60T0 190 

6888 FOR H-168 TO 8 STEP -10:FOR ISEH 
TO H*t20:50HUND 8,MM,10,10:NEXT HNINENT 

H: SOUND 6,0,0,8:11-1:L-1:G0TO 6080 

188080 DIM M$C142,C1$(102,02$9 (14) , LIS (4 

2) ,125(12) , R1$ (2) , R2$0122 , 9$ (12) , WS CL 


2) 

18081 CB-PEEK(186)-4:POKE 186,CB:G05UB 
20868:6-CBER256:FO0R RR TO 511 

18882 IF B)431 OR B)227 AND BXI60 THEN 
READ DiPOKE AtB,D:GCOTO 10010 

18805 POKE op. BEER (5734448) 

16010 MEXT B:POKE 54279,CB 

10028 FOR H-CB32564512 TO CBN256t1824: 

POKE W,@:MENT H:POKE 53256,@:POKE 5325 

7,8 

18818 POKE 53248,81:POKE 53249, 89: POKE 
$1250,126:PÜKE 53251,52 

18840 FOR H-521 TO 536:READ A,B:POKE C 
BX256tH,A:POKE CEX256+M+1238,B:NEXT M 

18841 FOR H-774 TO 783:READ A:POKE CBE 

256+H,0:MEXT H 

18058 Ci$-"999 48H24 [$4/997:02$2"7 9909 el 

VA deh 99:L1$z79951 209 xi P: 125$="ppbd 

PEGAS" 

10051 R19-" 99 dien LL Alt A emm ma E 

]4425:)$-011H 09999" :1$=""098 IDE 

Ha 

18868 UT-PEEK (134) t256XPEEK (135) tATZPE 
EK (140) +256NPEEK (141) :0F2256%CB+896-AT 
: UZ-INT(OF/256) :U2=0F-256%U3 

18861 POKE UT42,U2:POKE VT+3,V3:POKE V 
T+4,128:POKE UT*5,0:POKE UT*6,128:POKE 
YT+7,0 

18188 POSITION 0,10:?2 05; "RE 

TA R Tif 

18118 IF PEEK(S3279) O6 THEN 10110 
10120 SOUND 0,8,0,0:500UND 2,8,8,8 
18588 GRAPHICS 17:POKE 708,136:POKE 78 
9,26:POKE 718,222:POKE 711,98:POKE 712 
,U:POKE 756,CB 

10518 POKE 559,46:POKE 53277,3:POKE 76 
4,40:POKE 705,48:POKE 706,78:POKE 707, 
14 

18688 GOSUB 20189:G05UB 20108+188%L :G0 
SUB 20588 

18999 RETURM 

28888 GRAPHICS 18:POKE 710,228:POKE 71 
2,18:FOR M-8 TO 18 STEP 2:POSITIOM 7,8 
:2 BOK 0 N G":NEXT H 

20818 SOUND @,@,0,@:POKE 53768,7:POKE 
53765,168:POKE 53768,254:POKE 53761,16 
8:POKE 53764,127 

20895 RETURN 


20108 FOR H-2 TO 20 STEP 3:POSITIOM O, 
22 H6; A A A A A A A A A APT TRENT Hr 


POSITION 0,23:? 346; ^.^ ^ 8.C, 0e, ^4 ^.^ 
16 

20118 COLOR 94:PLOT 19, 23:POSITION 7,8 
2% 86;"^ ^ AR POSITION 7,1:? ` TN 
gy 

20111 POSITION 19,2:? 86; "Y": POSITION 
19,337 H6; Q':POSITION 19, :?> Wë: 


20115 POSITION S,0:? H6;"k":POSITION 5 
,1:? W5;"1" 

20128 POSITION 0,9:? 46;'"ww": POSITION 
8,1:? 86; "wwe 

20199 RETURN 

28208 FOR M-8 TO 28 STEP 6:IF H(20 TRE 
A X-8:POSITIOM X,M:? 86; POSITION X 
Mi? 86; POSITION 4,8t2:? Th e 
28285 N-19:POSITION K,M:? 16;" S: POSIT 
ION X,H41:9 H5; QU:POSITION X,H*2:? 116 
¡"EP MENT $ 

20218 FOR KS TO 20 STEP 6:X210:POSITI 
ON X,H:? 6; [P': POSITION 9X,H*1:? 86;"B 
POSITION X,Ht2:? 1'QUINERT H 
20220 POSITION 2,7:? 85; MN z M y 

z y'IPOSITION 2,13:? Gënz y E y 

z":POSITION 2,193:? "Iw Bz y" 

20299 RETURN 

28300 FOR K8 TO 20 STEP 6:X-16:POSITI 
ON NM? ¿POSITION 3,H91:? Ser 
":POSITION H,Ht2:7 86; MN": MEXT H 

20318 FOR KS TO 28 STEP 6:K=3:POSITIO 
H N,QH:? H5; QI POSITION K,WtL:? mnm; 
¿POSITION X,R02:? M6; "PP: NEXT MW 

28128 POSITION 4,7:? SEY z y My pz 
y":POSITION 4,13:? 865;"y z fy zz" 
:POSITION 4,19:7 06;"z y Mu HG" 
20399 RETURN 

20488 FOR H-2 TO 28 STEP 6:8-15:POSITI 
ON X,H:? D. : POSITION X,Ht11? s5;"R 
"POSITION X,M*2:7 86; "GP: HENT H 

28418 FOR KS TO 28 STEP 6:N-8:POSITIO 
N X,H:? H6; POSITION X,W+1:? 6; d 
: POSITION X,H42:7 H5; "NEKT H 

28428 POSITION 2,7:? M63"ZZ Y yy Zz 
yy" :POSITION 2,12:? 86;"z yy zzy B 

>": POSITION 2,19:? 06;"fMlizz y HB zy Rz 
LEJ 

28499 RETURN 

20588 FOR KA TO 16 STEP 6:FOR WEI TO 
7 

20518 KIMT(RND (03428) :LOCATE N,N, Z:IF 
Z(>32 THEN 20518 

28528 POSITION N,M:? H6; {i : NEXT HH: RE 
HT WM: RETURN 

12088 DATA 16,56,56,120,112,112,224,22 
4,196,282,213,213,245,213,74,52 

32005 DATA 16,56,56,56,28,28,12,12,14, 

14,6,6,7,6,2,3 

12818 DATA 255,255,255,255,255,255,255 
:255,24, 35,90,90, 98,90, 16,24 

32015 DATA 60,255,195,255,195,255, 195, 

68,24,36,90,90, 90,90, 36,24,12,12,0,54, 

54,0,219,219 

12820 DATA 8,8,8,0,0,0,0,255,129,235,1 
29,129,129,255,129,129,56,16,254,186,1 
86,40,40,108 
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328318 DATA 255,255,48,24,12,6,255, 255, 
255,255,6,12, 24,48, 255, 255 

12058 DATA 0,0,8,6,0,158,0,62,0,255,3,2 
53,7,254,15,252,29,120,31,176,31,192,3 
1,192,248,192,240,224,192,248,32,32 
32068 DATA 28,93,73,127,28,62,127,28,2 
8,54 | 
32760 DATA 28,62,127,127,63,31,15,7,3, 
1,9,0 


Steve Monn: 
THE GREEN MACHINE 


i REM FROM AAA 
2 REM BY Steve Monn 

10 atn SCREEN Lioi IN tL 

188 ? CHR$ (125) 

118 ? "ENTER THE SCREEN COLOR DESIRED 
"1:27 HSE THE COLORMUMBER, PLEASE": TRAP 
110: INPUT COLOR 

128 IF COLOR(B OR COLORDAS THEN ? "ENT 
ER A COLOR FROM @ TO 15, PLEASE.":G0TO 
118 

138 ? CHRS$(C129) 

148 ? "ENTER THE NUMBER OF FLASHES PER 
SECONDFOR THE CURSOR ";:TRAP 140:1NPU 
T FPS 

158 IF FPS<1 OR FPS)68 THEN ? "ENTER A 
VALUE FROM 1 TO 68, PLEASE.":GOTO 148 
168 FPS-INT(68/FP35) j 

178 GO5SUB 1078 

188 POKE 1654, COLOR#16 

198 POKE 1577,FP5 

288 END 

1878 FOR I-1516 TO 1536445 

1089 READ B:POXE I,BI:NEHT I 

1898 AUSR (1536) 

1188 RETURN 

1118 DATA 184,169,17,141,49,2,162,6 
1128 DATA 141,41,2,169,30,141,26,2 





1118 DATA 96,169,268,141,198,2,141,208 
1148 DATA 2,162,214,141,197,2,173,243 
1158 DATA 2,41,2,73,2,141,243,2 
1168 BATA 169,10,141,26,2,96 
Listing 2 
LEPIDE OORT vgl 
PLAC STA t42C8K 
LBA & LDA Së 
STA 608228< STA 682034 
LDA $9864 LDA 602F3< 
BTA 48229 AND 96624 
LDA #$iC¢ EOR 8082 
BTA $9214 STA $821 
RTS LDA 898F4 
*— BTA $6214 
LDA — "ch 


Carl Schwartz MEASURE 
PILOT program from Cleveland ACE 


POS:5,5 

T:Hi, I'm a measuring progran.. 

T: 

T:Mho are you ? A 

A: SNAHE 

P05:5,15 

T:0k, SWAME lets go... 

:Pick the length of my line in inche 
5. land press 

9 PACHR<{1) :226 


ER UY OG Qi 4d» ON bä po 


IZ ee TA te ae es 
ii XMEASURE E(#0Q)8): 

14 C:HM-?X611 

iS C:H0-HMKIS 

16 Mi: Sp Adjust the number (15) 
if your TV is not a 13in 
17 GR:CLEAR 

18 GR:TURNTO 98 

19 C: VU 7X10-15 

29 GR:TURNTO98;G0T0-65,HU ; DRAW 110 

Zi GR:TURNTO98;G0TO-65,HU+I ¡DRAM 110 
22 *REDO EG 1): 

21 , TIENEN (12 3 4 5 or 6) 

24 , Ara 

25 , MN: 

26 , COTA OD HN-HNT 1 

27 , JW;XTRYMORE 

28 , JCHT)4 2:390NE Ino of ? 

29 , uY:*600D 

38 , JCOIT11) MEASURE 

Ji , E: 

32 *TRYMORE T:TRY AGAIN SHANE 

33 , PA:30 

34 , J:XREDO 

SA ÓN A 
36 *600D 

37 T:600D ANSWER 

$8 C:RTRT+1 

39 €:85-6 

48 *XLOOP 50:15 

41 , C:HS-H541 

42 , JOIS CT1) ¿LOOP 

4i 50; 

44 E: 

IBN mee CAT CR REEL 
46 DONE 50 :38Z 

47 CiBZ=CiG— (280 318 

48 T:$NAME, MISSED HW and got Hz MB 
BA 

- 49 PA:158 

S8 JUDG) REPEAT 

Si TUNGE): OL REALLY MEASURE Ur 
ME 

52 JOIN-8) :REMARD 

53 C:H0-HO*1 

54 E: 


[horiz 


Sua 





56 XREHARD GR: QUIT 
$7 P05:5,5 
58 T:0K, SHAME, LETS PLAY A DRAWING GA 


59 :Tell me three things... 

68 PÀ:228 

51 P0S:5,18 

62 T: (Use numbers and press [TANT 3 

63 PA:108 

54 MD GR:CLEAR 

65 C:4P8 

66 T:Length to draw (1-186) 

67 A:4D 

68 GR :DRANMD 

69 T:Turn angle (1-98) 

78 A:T 

71 GR:60T0 8,8;TURNTO HT;DRAM 25; TURN 

-135;DRAM 5; TURMIBO;DRAMS ; TURNO; DRAWS 
72 T:Mumber of trips (18-288) 

73 ASH 

74 GR:CLEAR; GOTO 8,8;TURNTO 8 

75 *REPETITION $0:8C , uP 

76 , €:8C=7\F [random colors 

77 , GR:PEMYELLON 

78 , GR(OICZ1) PEN BLUE 

79 , GRUIC-2) : PEN RED 

88 , GR: DRAWHD; TURM188;GOHT ; TURN270*HT 
¡60 1 

81 , CIMPMP+1 

82 , JUMRI)AP) :EREPETITION 

83 50:0,8 

84 T:S$NAME' SAANS HTTURN HOLONG HRTRI 
P^ 

SS Marron + ARIAS eee 

86 X*REPEAT PA:68 

87 50: 
88 T: 

89 a: 

98 W:Y 
91 JM:XMEASUREOUER 

92 T:50 long, $NAME..... 

93 PA:128 

94 E: 

95 Riera. ——— Ó 
96 R:by Carl Schwartz 5/83 

97 R: besigned for pre-schoolers 

98 R: adjust line LENGTH for your TU 


Again 7CY, MOM 


188 R:-------------------------------- 


Ken Waible: DICE PROBABILITY 


REM 3398B8BBOH7OBHOBHHOHHOBOBEHBEBEO 
REM * ATARI COMPUTER ENTHUSIATS X 
REM $ 3662 VINE MAPLE x 
REM * EUGENE, OR 97485 * 
REM * $18.88 YEAR * 
REM 1HO3BBBOOBHOBBHOEBHEBBHBHOBHEOGE 
REM 18080BOBBOOOHBHEBHHOBOOHEHOBHÉ 


Wë €) Y Q' Ui hb God bh bo 


REM XX DOGISEETTEABILITY x 
REM Xx BY Y 
10 REM * KEN E. MAIBEL * 
11 REM X FEB. 1984 x 


12 REM JHHGHBOOHOHEOBHHOHHOHOHBHEHEE 
15 C-1:605UB 688 
28 CLR 
30 ? "K":REM Number of rolis 
32 ? :? ;? "Display individual dice ro 
lis(yes/no)3";:605UB 588 
34 ? :? 3? "How many dice rolls"; 
i6 INPUT NUM:NUMBER-NUM*MUMGER 
37 IF R-89 THEN POKE 281,2 
38 FOR X=1 TO NUM 
48 REM ROLL DICE 
42 DICE1-INT (RND (83 %G413 
44 DICE2-INT CRMD (8) X611) 
46 TOTAL=DICE1+DICE2 
$8 REM Adds the die 
54 IF R-89 THEM PRINT TOTAL, 
56 GOSUB TOTAL*68 
58 NERT X 
59 GOTO 180 
66 REH COUNT DICE 
62 T2-T2*1:RETURN 
63 TI=TI+1: RETURN 
64 T4=74+1: RETURN 
65 TST5+1: RETURN 
66 T6T6+1: RETURN 
67 T7=17+1: RETURN 
68 TST8+1: RETURN 
69 T9-T9*1:RETURN 
78 T18-T18*1:RETURN 
71 TL1T11+1: RETURN 
72 T12-T12*1:RETURN 
188 REM PRINTING 
182 C-3:605U5 688 
105 POKE 281,18 
118 ? :? “What noy?" 
EL 3 a i-Print te screen” 
114 ? " 2-Print to printer" 
? 
T 
? 


:REM TOTAL=2 
¿REM TOTAL=3 
¿REM Etc. etc. 


116 ? " 3-Add wore dice rolls" 

118 " 4-Start over" 

120 ? " S-End Program" 

122 GOSUB 588 

124 IF R-49 THEM OPEN 92,8,8,"5:":60T0 
158 

126 IF Rap THEN OPEN 42,8,8,"P:":60TO 
158 


GOTO Page 12 


MEN—=S= SCORE-@6 





Rnd=125 


DR Ee 


Stan Ockers: RATS REVENGE 


3 RATS REVENGE IN ACTION! 
i by Stan Ockers 


3 ACE Hewsletter, 3662 Vine Naple 
| Eugene, OR 97465 $12 year 
d March 1904 


MODULE 3 RATS’ REVENGE 
CARD pabase, dest, source, cnt, sourcel, 
source2, sources, score, aaxscore, 
radpts, dlist=369 
BYTE papage, stk, v,w, col ron, 
vcount#$D48B, conso 33279, dir, all, 
dirt, blkflg,dir2, 
dirS,pos, posi, pos2,pos3, 
level dotscat,hitflg,aen, owaflg 
BYTE ARRAY ratup=[@ 66 126 66 24 66 
126 99 126 60 36 102 8 63, 
ratrt=[9 32 36 188 62 16 38 126 129 
128 129 44 48 $1,ratits(8 4 28 34 
124 8 92 126 38 38 28 52 12 9), 
cursor=[34 26 8 26 34), bugups[8 36 
24 Aë 126 68 24 68 90 bb 24 A 
$ Gi,bugrt#($ 48 32 128 108 
36 16 36 56 68 36 44 48 f), 
buglt=[9 12 4 39 34 28 8 28 28 a 
28 32 12 $1,all10wed(132),saveal1 (133), 
hortops[3 32 32 321, vertop=[3 32 
6 32),allbotz[3 7 & 71,newall=[3 
135 6 135), herbotst3 7 7 71, 
dots(152),b1k=(3 32 32 321, 
newbot=[3 133 135 135] 
INT delx,dely,delxi,delyi,delx2, 
dely2,delx3, del y3, x  y,x1, y1, 
x2, 2,13, y3, ax, ay 
PROC Init() 
SetBlack (al lowed, 132,8) 
SetBlock (dots, 132,1) 
FOR cnt=1 TO 18 
DO allowed(ent)=76 0D 
allowed (8)272 allowed(11)=58 
RETURN 


PROC Painit() | 
BYTE ARRAY fils[69 85 63 83 53 85 45 
85 6 8 8 8 255 51 294 293 8 8 235 233 
§ 24 68 bð 24 9 23325590008 
§ $ 235 255 8 8 8] 
papagesPeek (185) -1à. pabasespapaget236 
Poke (54279, papage) Poke(339,62) 


LUL 


IF (y-18) NOD 1628 AND (x-22) MOD 1258 THEN 
rows (y-42) /16 col=(x-36)/12 
possi2erou*col allsallowed(pos)i13 
IF stk=8 AND drei THER dir=8 
ELSEIF stk=4 AND dir=8 THEN dir=4 
ELSEIF stk=1 AND dir=2 THEN dirsi 
ELSEIF stks2 AND dir=i THEN dire? 
FI 
IF (dir & 370 THEN stkzst 12 
ELSE stke=& 3 FI 
IF(stk & a11)08 THEN dirzstk FI 
WHILE (dir & all) 

BO dirsdir REH 1 

IF dir=@ THEN dir=8 FI 0D 

IF dire] THEN dely=-1 delxs$ 
source*bugup 

ELSEIF dirs2 THEN delysi delx=8 
source=bugup 

ELSEIF dirs4 THEN delys$ delx=-1 
source=bugit 

ELSEIF dir=8 THEN dely=8 delis! 
sourcesbugrt FI FI 

yssédely yssedely 


Poke(53277,3) Poke(53248,x) Poke(764,92) RETURN 
Poke(785,282) Poke(786,258) Poke(767, 186) 


SetBlock(psbase*1824, 1824, 8) 
Moveblock (pabase, 37344, 1824) 
Poke (755, papage? 
FOR cnts TO 39 
DO Poke (pabasetcnt+S49,fil(cat)) 0D 
FOR cntsb TO 28 
DO Poketdlisttcnt,4) OD 
RETURN 


PROC Ding(BYTE pitch,CARD diy) 
BYTE loud 
CARD wait 
FOR loud=@ TO 13 
DO Sound (S, pitch, 18, 15-leud) 
FOR waitai to diy DO OD QD 
Sndrst () 
RETURN 


PROC Tracks() $ leave trail 
BYTE neupos,z 
IF newpos< pos THEN 
newposspos vapos NOD 12 wepos/12 
¿stocate(Jtv+2,240+2) 
IF 227 THEN 
rndpts==+25 Position(21,0) 
PrintCirndpts) 
Position (3tv+2, Zong?) dotscntzs-1 
IF allowed(pos)&64 THEN Print (newbot) 
ELSEIF allowed(pos)kió THEN 
Print (newall) FI FI FI 
RETURN 
PROC Novel) | aove the bug 
stksBtick(8) ! 13 
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PROC Movel) y decide rat 81 sovesent 
BYTE nua, coli roni 
IF (yl-18) MOD 1528 AND (x1-22) MOD 12-8 THEN 
rowi=(y1-42)/16 colisixi-38)/12 
posi=i2#rowitcol! allsallowediposi! 
IF Rand(19)>19-level THEN 
ax=x-x1 IF af THEN axs-ax FI 
ayzy-yl IF ay(8 THEN ays-ay FI 
IF axday THEN 
IF (x1)x) THEN dirin4 
ELSEIF (x1(x) THEM diris FI 
ELSE 
IF (yi<y) THEN diriz2 
ELSEIF (iii THEN diri=1 FI FI 
FI 
WHILE (diri & al1)=8 
DO dirizdiri RSH 1 
IF dirie@ THEN diri=8 FI 0D 
IF dirizi THEN delyi=-1 delxisf 
sourcel=ratup 
ELSEIF diri=2 THEN delyis1 delxisf 
sourcel=ratup 
ELSEIF diri=4 THEN delyis delxi=-1 
sourceisrat]t 
ELSEIF diris8 THEN delyis$ delxisi 
sourceisratrt Fi FI 
RETURN 


PROC Move2t) 
BYTE nua,col 2,row2 
IF (y2-19) MOD 1528 AND (12-22) MOD 1228 THEN 
rou22(y2-42)/15 col2= (12-55) /12 
pos2=120row2+co12 allsallowedipos2) 


IF Rand(13))18-level THEN 
axvx-32 IF ax(@ THEN ax=-ax FI 
aysy-y2 IF ay(8 THEN ays-ay FI 
IF axday THEN 
IF fäi) THEN dir2=4 
ELSEIF (x2(x) THEN dir2=8 FI 
ELSE . 
JF (y2(y) THEN dir2=2 
ELSEIF (y2>y) THEN dir2=1 FI FI 
FI | 
WHILE (dir2 € al1)=8 
DO dir2sdir2 RBH 1 
IF dir2e@ THEN dir2=8 FI 0D 
IF dir221 THEN dely2=-1 delx2=8 
source2eratup 
ELSEIF dir2=2 THEN dely2*i dulx2=8 
source2=ratup 
ELSEIF dir2=4 THEN dely2s8 delx2=-1 
source2=ratit 
ELSEIF dir2=8 THEN dely2=0 delx2=1 
source2sratrt FI Fl 
RETURN 


PROC Hoves() 
BYTE nue, cold, rows 


IF (y5-18) MOD 1629 AND (x3-22) MOD 1228 THEN 


row3=(y3-42)/16 col3=(x3-35)/12 
pos3=12érowJ+co13 allsallowed(pos3) 
IF Raad(13)>38-level THEN 
ax=x-x3 IF af THEN ax*-ax Fl 
ay=y-y3 IF ay<@ THEN ays-ay Fl 
IF axday THEN 
IF (änt THEN dir3=4 
ELSEIF (x3<x) THEN dir3=8 FI 
ELBE 
IF (ySCy) THEN dir3=2 
ELBEIF (y3>y) THEN dir3el FI FI 
Fl 
WHILE (dir3 & al1)=8 
DO dirSedir3 RSH 1 
IF dir3=8 THEN dir3=8 FI 0B 
IF dir3=1 THEM dely3=-1 delx3=@ 
sources=ratup 
ELSEIF dir3=2 THEN dely3=1 delu3=8 
sourceJ=ratup 
ELSEIF dir3=4 THEN dely3=0 delx3=-1 
sourceJeratlt 
ELSEIF dirjsB THEN dely3=8 delx3=1 
sourceleratrt Fl FI 
RETURN 


PROC Update() | all players sove 
DO UNTIL vcountsi28 0D 
Poke (53248,1) destspabase+1824+y 
MoveBlock (dest, source, 14) 
uiezedelxd ylostdelyl Poke (33249,x1) 
dest=pabase+1288+y1 
MoveBlock (dest, source! , 14) 


PROC Bkgd() y draw ladders & girders 
Braphics(9) Poke(752, 1) 
FOR poss TO 131 
DO x=pos MOD 12 yspos/12 
all=allowed (pos) 
Position (3éx+2, 2#y+1) 
IF a11448 THEN Print (vertop) 
ELSE Print(b1k) FI 
Positiont3tx+2,2ty+2) 
IF al1&64 THEN Print (horbot) 
ELSEIF all&32 THEN Printivertog!) 
ELSEIF all&16 THEN Print(alibot) 
ELSE Print (blk) FI 09 
FOR x«1 TO 38 
DO Position(x,23) Put(13) OD 
RETURN 


PROC DIy(CARD saxcnt) 

CARD cnt 

FOR cnt=1 to aaxcnt DO 0D 
RETURN 


PROC Savenaze() 
Open (1, "DS HAZE", 8,6) 
FOR pos*$ TO 132 
DO saveall (pos+1)=allowed(pos) OD 
saveal1(9)=132 PrintD(1,saveall) 
Close (1) 

RETURN 


PROC Cleanscr() 3 get rid of players 
FOR cnt=53248 TO 33231 
DO Poke(cnt,§) 0D 
RETURN 


PROC Openup() $ pos. above peraitted 
IF allowed(pos-12) & 112 THEN 
allowedípos-12)2222 allowed (pos)==21 
FI RETURN 


PROC Opendn() 
IF allowed(pos*12) & 48 THEN 
allowed (pos+12)==21 allowedipos)s222 
FI RETURN 


PROC Openit 1) 
IF allowed (pos-1) & 86 THEN 
allowed (pos-1)==28 allowed (pos) ==24 
FI RETURN 


x2e=+delx2 y2ee¢dely2 Poke (53258, 12) 

dest=pabase+153é+y2 

MoveBlock (dest, source2, 14) 

q3sstdelxj ySestdely3 Poke ($3231, x3) 

dest=pabaset!792+y3 

NoveBlock (dest, sources, 14) Tracks) 
RETURN 
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PROC Openrt() 


IF allowedipos*i) & 86 THEN 
allowed (pos+1)==74 allowed (pos)==18 
FI RETURN 


PROC Setbar() ; create screen 


BYTE key 

x-78 y-61 source-cursor 
destupmbaset1024ty Poke(764,255) 
SetBlock(pmbaseti824,256,8) 
Position(8,0) 

Print("(2 (23,03) | (49415) Save") 
Print("tBE)Exit (arrouws)') 


PROC RatsO 


DO 

Poke(33248,x) dest=pabase+1824+y 

MoveBlock (dest, source, 3) 

DO keysPeek (764) 
UNTIL key“>233 OD 

SetBlock (dest,3,8) Poke(764, 233) 

IF keys13 AND y<(181 THEN Ym=+16 

ELSEIF key=14 AND véi THEN y==-16 

ELSEIF key=7 AND 16178 THEN x==+12 

ELSEIF key=6 AND x)78 THEN x==-12 

FI 

IF consol=3 THEN EXIT FI 

cols(x-58)/12 raws(y-43)/16 

poszi2trow*col 

Position (3#col +2, 2trowt!) 

IF key=31 THEN 

Print(blk) allowed (pos) #8 
allowed (pos-1)==4247 
allowed (pos+1)==4231 
allowed (pos-12)==4233 
allowed (pos+12)==4234 

ELSEIF key=38 THEN 
allowed (pos)=ó4 allowadi(pos-12) 524233 
Openrt() Openit() Opendn() 

Print (hortop) 

ELSEIF (kays26) THEN 
allowedipos)s32 allowed (pos-1)==4247 
allowed (pos+1)==4231 Openup () 
Opendn() Print (vertop) 

ELSEIF (key=24) THEN 
allowed(pos)*16é Openup() Opendn() 
Openit() Openrt() Print (vertap) 

FI 

Position (S#col +2, 2#row+2) 

IF keyz31 THEN Print (blk) 

ELSEIF key=3@ THEN Print (horbot) 

ELSEIF key=26 THEN Print (vertop) 

ELSEIF key=24 THEN Print(allbot) 

FI 

IF key=29 THEN Savemaze() FI 

IF key=27 THEN EXIT FI 


DO UNTIL PEEK(764)<>key 0D 
0D 


RETURN 


PROC Loadaaze() 
0pen (1, *D28AZE* 4,0) Input8D(1,saveall) 
SCopyS (allowed, saveal1,2,132) 
allowed (6)=saveal1 (1) Close (1) 

RETURN 


PROC Contact() 3 hit a rat 
FOR v=30 to 288 STEP 5 
DO Dingív,v) OD 
hitflg=1 
RETURN 


PROC Rndover() 3 completed screen 
FOR v=30 to 288 STEP 5 
DO Ding(238-v, v) QD 
RETURN 


PROC Gameover (2 
Graphics(18) Position(s, 4) 
print te, "die WER 
Position (8,9) 
Printd(6,"press START to play") 
DO UNTIL consol-é OD 
DO UNTIL (consolá7)-7 OD RETURN 


PROC Scorecard() 
Position(d, 9) Print("NEN=") PrintB(aen) 
Position(ó,8) Print("SCOREs") 
PrintC(score) Position(17,8) 
Print(*Rnd=") PrintC(rndpts) 
Position(26,8) Print (*HI=") 
PrintC(aaxscore) Position (33,9) 
Print (*LVL2") PrintB(level) 

RETURN 


PROC Play() 

BYTE ARRAY 1v112[72 78 76 76 78 76 76 
78 76 76 78 68 8 35 8 06 53509 8 35 6 0 
35 0 9 25 76 78 21 8 8 25 78 76 21 8 
$993586908 25608 0 8 74 29 78 
76 76 78 29 7$ 8 8 8 8 535 8 55 8 8. 53 
$3358988257821898 25 76 21 8 6 
66635 74 76 76 706 335 8 8 8 8 8 9. SS 
J386353590 0 8 8 9 25 29 76 76 
HOI 
1v142[72 78 76 76 78 76 78 76 76 76 78 
68 § 28 76 76 23 8 27 76 76 76 21 8 $ 
§ 66 27 75 23580 8 8 8 8 74 76 76 31 
76 31 76 76 76 76 8 8 25 76 76 23 9 27 
76 76 76 21 98 8 8 8 27 76239000 
$ 0 74 76 76 31 76 31 76 76 76 76 9 § 
28 76 76 25 8 27 76 76 7162190900 
27 76 2368696986 72 29 76 29 
6899996999986 668 86 8), 
1v172(72 78 76 78 76 78 78 76 78 76 78 
68 Y 25 78 29 78 21 35 8 35 86 32. 8 9 
74 29 78 29 78 29 78 29 78 21 8 8 35 
8 33 8 33 74 29 78 29 78 9 8 25 78 29 


IF ownfig=9 THEN 
IF level>@ AND level(4 THEN 
FOR v=@ TO 132 
DO allowed(v)zivit(v) OD 
ELSEIF level?3 AND level<7 THEN 
FOR v=8 10 132 
DO allowed(v)=1v14(v) 0D 
ELSEIF level>é THEN 
FOR v=8 TO 132 
DO allowed(v)=1v17(v) OD FI FI 
Bkgd() Painit() Scorecard() 
1256 y=42 dir=8 sourcesratrt 
SetBlock (pabasa*1824,1024,8) 
y1242 dirt=4 sourcel=ratlt 
source2sratit 
y2=42 dir2»4 delx=i 
y3242 dir3=4 source3sratit 
Dëss posi=ii pos2=11 pos3=11 
delysó delyi=0 dely2=@ dely3=6 
delxis-1 delx2s8 delx3=@ x15184 
12z8 x3=8 dotscnt=8 
FOR cnt=8 to 131 
DO wsallowed(cat) 
IF «488 THEN dotscntsse] FI 0D 
ws(level-1)M0D 3 
IF w)8 THEN x2=184 delx2=-1 FI 
IF vii THEN 132184 delx3s-1 FI 
DO FOR cnt=1 TO 10-1evel 
DO DO UNTIL vcount=1 OD 
UNTIL vcount=128 0D 
Move() Hovel() Nove2() 
Move3() Update() 
IF dotscnt=@ THEN Rndover () 
EXIT FI 
IF ((x=x1)AND (y=y1))0R 
((x=x2)AND (y=y2) )OR 
((x=x3)AND(y=y3)) THEN 
Contact () EXIT FI 
Poke (77,8) 
00 
Cleanser () 
IF dotscnt=8 THEN level ==+] 
IF level=19 THEN levels9 FI 
scoreszerndpts rndptssó 
IF aaxscore(score THEN 
Baxscoreescore Fl 
ELSEIF hitflg=1 THEN aensz-i 
rndpts=8 
IF aen=$ THEN Ganeover() EXIT FI 
FI 
0D 
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RETURN 


PROC Rats() 
D 


&raphicsti8) Positiont4,1) 
Printo(6,"“RAS' Device" 
Position(6,3) PrintDE(6," REGULAR”. 
Printb(6,"option CREATE) 
Position(9,5) PrintBE(6,"PLAY ONN”) 
Positionte,7) 

Printb(t6,"select LUL [122456789* 
Positiont8,93 Printb(6,"start') 
Position(1,11) Poke(dlist*16,6) 
PrintB(6,"MRITTEN IN CETRO 

w-3 level-i ownflg-8 scere-@ 
waxscore-@ rndpts-8 nen-i 

po 


DO UNTIL (conso147)<>7 0D 
IF consol=3 THEN position(7,w) 
PutD(6,32) wez+i 
IF wee THEN wed FI 
Position(7,u) Puth(6, 178) 
Ding (121, 680) 
ELSEIF consol=5 THEN 
Position (18+level,7) 
PutD(6,48+level) level==+1 
IF level=19 THEN level=1 FI 
Position(18*1eval,7) 
PutD(5,176*1evel) Ding(66, 608) 
ELSEIF consol=6 THEN 
IF we4 THEN Init() Bkgd() 
Painit() Setbar() Cleanser () 
EXIT 
ELSEIF weS THEN Loadaaze() 
ownflg21 Play() ownflgsé 
Cleanser () EXIT 
ELSEIF wei THEN 
Play() Cleanser () EXIT 
FI 
FI 
BO UNTIL (consol47)=7 0D OD D 
RETURN | 


Meeting 


Weds March 14, 7:30 
South Eugene High 
Cafeteria 


C. Mueller: String Search Routine 


66016 

66626 ADTOT 
99039 EXDTOT 
$6049 ADEE 
$0958 LENSS 
$0868 POSIT 
09951 § 


«OR 60600 

ER A SADR (TOTS) 
ER SCD ¿END TOTS 

ER $05 JADR (880) 

ER $98 sLEN(S86) 

Eg $04 ¡POSITION 


00052 ¡PULL ARGUNT PASSED BY USR 


$9955 | 
971 
09886 
$9594 
99109 
69119 
66128 
00136 
90149 
90156 
66168 


$9216 


$8228 STA ADSS 


"2s 
04240 
$258 
00264 
40270 
GE 
00299 
00309 NEXTCH 


$9468 


PLA 

PLA 

STA ADTOT+1 
PLA SLEB/ADRITOTS) 
STA ADTOT+1 § 

PLA ¿NSB/LEM(TOTS) 
HL ELR CARRY FLAG 
ADC ADTOT+1 ¿ADD THE ADR(TOTS) 
STA ENDTOT+1 
PLA 

ADC ADTOT 
STA ENDTOT 
PLA 

STA ADOS+1 
PLA 


30 ARBUNTS 
¿N8B/ADRITOTO) 


I NEB/ADR (889) 
1L88/ADR (859) 


PLA 

PLA 

STA LENSS 
LDA A 

TAY 

STA POSIT 
STA POSIT+1 
LN 86 

INC POSIT 
BNE CHEKCH 
INC POSIT+1 
LDA (ADTOT),Y ¿COMPARE CHARACTER OF TOTS WITH S&S 

CHP (ADSS),Y 

BNE NOMATCH 360 TO NOMATCH IF NOT EQUAL 

INY 31F EQUAL INCREMENT Y TO CHECK NEXT CHARACTE 
CPY LENSS (IEF YeLEN(SS$) THE MATCH 18 FOUND 

BEO FOUND 

BEN CHEKCH 560 CHECK NEXT CHARACTER 

LDA ADTOT+1 SCHECK IF WE ARE AT THE END OF TOTS 

CHP ENDTOT+1 
BNE INC 

LBA ADTOT 
CHP ENDTOT 
BEQ NOFIND (IEF THE END OF TOTS THEN MATCH NOT FOUND 
INC ADTOT — ;IMCREMENT TOTS 

BRE NEXTCH ¿START LOOKING FOR A MATCH AT NEXT TOTS$(X, X! 
INC ADTOT+1 

BNE NEXTCH ¿START LOOKING FOR A MATCH AT NEXT TOTS(X, Y! 
LDA $$ 

STA POSIT 
STA POSIT+1 
RTS 


¿THROW AWAY HSB OF LEN(SS$) 
LEN (889) 


SIMITIALIZE TO TOTO (8,9) 


i INCREMENT TOTS{X, x) 


{IF MOT THEN GO INCREMENT TOTS 


¡RETURN A ZERO TO BASIC 


JRETURM POS. OF SSS IN TOTS TO BASIC 
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@ REM BY C. MUELLER, 
18 DIM TOTS (26808) , 555 (255) 

28 TOTS="THIS 15 A TEST OF A MACHINE L 
ANGUAGE STRING SEARCH" 

38 FOR 121 TO 8 

48 TOTSULENC(TOTSI+1)=T0TS 

58 NEXT I 

68 TOTSCLENCTOTS) t12-"ATARI COMPUTER" 
78 ? "ENTER SEARCH STRING;:I.55$" 

88 POS-USR(1536,ADR(CTOTS) , LEN CTOTS2 , AD 
RCS5$) ,LENCSS$1) 

85 IF PO5-@ THEN ? "STRING NOT FOUND: 
END 

98 ? ;? "'";55$; "TOTS CM ;P0S ;" ,"; EA 
LEN(CSSS) -1;'0n" 

35 END 

188 FOR Izi TO LEN(TOT$) 

118 IF TOTSCI,I*LEN(SS$)-1)-S5$ THEM 1 
28 

12@ MEXT 1 

138 STOP 

i58 ? I 


Greg Menke: FUNCTION KEY (from Feb issue) 


18 jFunction Key Asseably listing 
28 j 

38 1V2.8 12/12/83 

40 ¡By Greg Menke 


98 3 

68 3 

76 jLising in Atari Asseabler Editor 

88 ¡foraat. 

96 | 

$198 226469 

$118 LDA 12 (get Lo byte af DOSINI 
$128 STA DOSINI jand store it 

$139 LDA 13 snow get the Hi byte 
$148 STA DOSINI+1 jand store that too 
$136 JSR INIT sinitialize VBI and new RESET vector 
0160 RTS $return to DOS 

$178 BRK jend 

8188 ; 


$198 DOSINI .BYTE 9,6 
$206 INDEX .BYTE § 
$218 | 

$228 RESET JSR INIT 
6236 JMP (DOSINI) 
$248 | 

$258 INIT LDX @ROUTINE/256 


¡fix the RESET vector 
jand retura 


¡Hi byte of VBI 


9266 LDY @ROUTINE&253 ¡Lo byte of VBI 

8278 LDA $6 juse iasediate aode 

$288 JSR $E45C sand start it 

$298 LDA &RESETA233 jlo byte of new RESET address 
8368 STA 12 $store it 

9319 LDA @RESET/256 ¿Hi byte of new RESET address 
8328 STA 13 sstore that 


9568 | 
9576 SELECT LDX #SELCT/234 


$589 LDY #SELCT4253 jlo byte 

$598 JMP PRINT iprint it 
$596 | 

$519 OPTION LDX SOPTON/256 

$628 LDY &0PTONL255 ¿Lo byte 

$638 ; 

0648 PRINT STX SCC jstore Hi byte 
$558 STY $CB jstore Lo byte 
$668 LDA ur 


878 STA INDEX 
9680 LOOP LDY INDEX 
$498 LDA ($08), Y 


(get the offset 


$786 INC INDEX jadd i to offset 

$718 CHP $6 Sis this the last one? 
$728 BEQ DONE fyes, exit 

9739 JER EA) jac, print the character 
6746 JP LOOP 

$738 DONE JMP EXIT jexit 

(HR 


8778 STRT .BYTE 156, "You hit START*, f 
$788 SELCT .BYTE 156, "You hit SELECT",0 
$798 OPTON .BYTE 155," You hit OPTION", S 


Dice Probability (Con't) 


128 IF R-51 THEN GOTO 38 
138 IF R-52 THEW RUN 

132 IF R-53 THEM END 

134 ? :? :? :GOTO 100 

158 ? "AR": TRAP 184 

152 ? :? :? 

154 PRINT 82; "MUMBER", "APPEARED", "EXPE 
CTED" 

156 PRINT 112;2,T2, CINTCC1/36)SHUMBER+O 
E) 

158 PRINT 82;3, 73, CINT( (2/362 HIUMBER 48 
52) 

168 PRINT 182;4,T4, CINTC(3/36) 4MUMBER+8 
DT 

162 PRINT 32;5,T5, CINT (14/36) ¥MUMBER+0 
509 

164 PRINT #2;6,T6, CINTC(S/36)3HIUMBER 48 
Dn 

166 PRINT 237,17, CINT ((6/36)*HHMBERtO 
DT 

168 PRINT 32;8,T8, CINTC(S/36) ¥NUMBER+® 
51) 

178 PRINT 42;9,T9, CINT (4/36) XNUMBER*8 
52) 

172 PRINT 2;18,T18, CINTCCI/26) HUMBER 
+0.50) 

174 PRINT 82;11,T11, CINTCC2/36) NUMBER 
*8.5)) 

176 PRINT 92;12,T12, CINTCCL/T6) NUMBER 
*8.5)) 


¡Mi byte of OPTION aessage 9389 CHP #1 


iclear the print index 


jnow get the character 


$go back and get another character 93516 JKP EXIT 


$338 RTS ¡return 


¡Hi byte of SELECT aessage $348 ; 


$5358 EXIT JAP SE45F 
9366 | 
$3578 ROUTINE LDA 743 


jexit VBI 


(get ATASCII coda for last character printed 
sis it CTRL A? 


$398 BNE EXIT jno, exit 

$499 | 

9419 LDA 33279 ¿get CONSOL value 

$426 CHP 07 sis anything pressed? 
$439 BEQ EXIT sao, exit 

9448 ; 

$438 CHP 06 jis START pressed? 

9468 BEO START jyes, goto START routine 
$478 CHP 85 fis SELECT pressed? 

$488 BEQ SELECT tyes, goto SELECT routine 
$498 CHP 43 jis OPTION pressed? 

$589 BEG OPTION jyes, goto OPTION routine 


¡several keys are down, so exit 


¡Ni byte of START aessage 
jLo byte of sane 
go print it 


83536 START LOX OSTRT/236 
$548 LDY @8TRT&259 
$558 JAP PRINT 


178 PRINT Hin " 

188 PRINT 882;" 

H 

182 PRINT #2;" 

MBER 

184 CLOSE #2 

198 GOTO 1808 

508 REM OPEN KEYBOARD 
$82 OPEN 41,4,0,"X:" 

584 GET H1,R 

986 CLOSE Si 

588 RETURN 

690 SETCOLOR 1,C,2:SETCOLOR 2,C,10:SET 
COLOR 4,C,18 

618 RETURN 

1888 SAVE "DIDICEPROB" 

18008 REM SAVE ROUTINE 


Bice rolls = "¿NU 


Total rolls: ";NU 


F Lash: Education Software 4565 Cherryvaie, 
Soquel, CA 95073 makers of the excellent 
"Tricky Tutorials’ a giving a SOD 

discount +f you mention ACE. 
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THE GREEN FLASHER 


(reprinted from the December, 1983 issue of Frederick ACE Newslet- 
ter) 


If you read the last article, you now have (and | hope understand) a 
technique to change the screen colors in GR.O. | mentioned a “secret” 
reason for using one of the Atari's interrupt timers to initiate the 
routine. The secret, if you haven't guessed, is to include the option to 
cause the cursor to flash. Just think. A green screen with a flashing 
cursor — this is starting to sound like the option list on a 3270. 

The new portion of the program will work using memory location 
755 ($02F3 in hex). This location is mainly used to control the visibility 
of the cursor. POKE 755 with 1 and the cursor disappears. POKE a 0 
back in and the cursor reappears. A side effect of the invisible cursor 
is the loss of the “inverse video” capability. As a side note — try 
POKEing 755 with 5. Not very useful, but interesting. 

If we an change 755 back and forth between 1 and 0, we can cause 
the cursor to “flash”. We already have a time driven interrupt in the 
screen color routine. We only need to add logic to flip the value of 
location 755 to flash the cursor. Keep in mind the side effect | men- 
tioned. Any inverse video characters will flash along with the cursor. 
You may or may not appreciate this, but that’s how it is. 

| want to clear up some confusion from the “Green Screen” pro- 
gram. To get a good green on black you will have to lower the 
brightness level. At normal brightness the display is white on green. 

This routine is relocatable. If you have some favorite area to stash 
machine language code, you merely need to change the address the 
BASIC loader uses to stash the DATA values. You must also change 
the address which gets loaded into the address vector for Timer2. 

Listing 1 is the BASIC loader. Listing 2 is the Assembly language 
code equivalent. Please use standard care and save the program 
before you attempt to run it as any error in the DATA statements will 
likely cause the dreaded lockup. When you run the BASIC program, 
you will be asked for the color of your choice. Respond with the 
number of the color of your choice from the standard list of color 
values. You will next be asked to enter the number of flashes per Se- 
cond you desire. My preference is 5, but you can experiment and find 
your own favorite. 

The Green Flasher will continue unaffected by GRAPHIC com- 
mands and DOS calls. It may be simply detached by pressing SYSTEM 
RESET. If detached, it may be restarted by X = USR(1536). Good luck 


and happy flashing. 
— Steve Monn 


Rats' Revenge 


| haven't had time to put any special touches on this game, but it 
should provide a good foundation for any climbing-chase type games. 
The same approach could be used in a Pac-Man style game. In fact, 


that’s the way this game started out but | think the climbing style is 


more interesting. 

The screen is divided into a matrix of positions, (12X11) where 
changes of direction can take place. The array “allowed” holds bytes 
describing which directions are permitted. The lowest four bits con- 
tain 'ones' for permitted directions which are compliments of the nor- 
mal joystick directions. The high four bits indicate which type of 
girder/ladder combination is present at any intersection. 

You can create your own scene and save it to disk. The ‘play own’ 
option will then recall it and you can play it at any level you select. | 
haven't figured out how to save under a user provided filename yet. 

It is quite challenging to provide a proper chase algorithm. In the 
one | wrote, the rats seem to either ignore you or latch on for dear life. 
Once they caught on, they were impossible to shake and it was im- 
possible to complete the screen if there was more than one dead end. 

| compromised by skipping part of the algorithm at random times. 
The rats are made to increase their LO. with level by comparing a ran- 
dom number to one dependent on the present level. You may notice all 
three rat moving routines are identical and they should be able to be 
replaced by one using indexed variables. | tried, but each time | did, 
the program compiled but locked up when run. Rather than blame the 
language, | simply took this as an indication l'm still learning to use 
Action! 

— Stan Ockers 


KONG 


This March issue of ACE contains the BASIC listing for the game of 
KONG. Kong has kidnapped your fiancee and he has placed her at the 
top of a partly constructed building and it is up to you to rescue her. 

On your way up, you must jump over bricks and barrels while trying 
to avoid all the barrels Kong throws at you. Use Joystick 1 to make the 
man walk and climb the ladders. To jump, press the fire button and 
push the joystick in the direction you want to move. Jumping is not 
permitted while on a ladder or on a yellow oil slick. 

Bonus points are scored by reaching the top of each level and 
points are scored for each ladder climbed. Each successive level 
becomes harder and scores higher points and larger bonuses. 

Hint: The barrels do not go all the way to the end of a level before 
coming down, so keep an eye on them. 

— Sidney Brown 


ML SOHT 


(reprinted from the November, 1983 Huntsville Atari Users Group 
News Letter) 


| want to show you how to use a machine language subroutine in 
BASIC. l've chosen a search routine which is short, easy to use, and 
extremely fast. Get your assembler/editor out and type in Listing Lk 
use Synassembler. If you use the Atari Assembler/Editor, the only 
changes you need to make are the equates which use an “=” instead 
of “EQ.” and Line 10, which should be changed to: 

00010 * = $0600 
Assemble the program, correct any syntax errors and save the source 
file. The save the object file from locations $0600 to $0660 according 
to your assembler manual’s instructions. 

Take a look at the source code listing. See all the PLA instructions 
at the beginning of the routine? They are taking the information off the 
stack as placed there by a USR call from BASIC. This means we must 
know exactly what parameters are to be passed from BASIC and their 
order. This routine is written to find a small string in a large string by 
comparing the Small search string to the same number of characters 
in the large string, starting with the first character in the large string 
and incrementing the start by one until a match is found or the end of 
the large string is reached. We want the BASIC program to pass the 
addresses and lengths of the large string and the search string to our 
ML routine. So we pull these from the stack (notice the order of most 
significant byte and least significant byte). We use the length of the 
large string (TOTS) to calculate the end of the string (ENTOT). Once we 
have these addresses and lengths the actual routine to do the search 
is very simple. The value returned to BASIC when the RTS is executed 
is the value at zero page addresses $D4 and $D5, which | am calling 
POSIT. Therefore we place the position of the search string within the 
large string into these locations and return to BASIC. If a match is not 
found we place a zero into $D4 and $D5. 

Listing 2 is a test of the subroutine from BASIC. Reboot with BASIC, 
go to DOS and binary load the object file (cassette users refer to the 
method found in the Atari Assembler/Editor Errata Manual for loading 
object files). Go back to BASIC and type in Listing 2. Save the program 
before execution since a problem in the ML routine can cause a 
lockup. The BASIC program creates a long string of the same words 
over and over, and then puts “ATARI COMPUTER” at the end. Notice 
the parameters which must be passed in the USR call at Line 80. Run 
the program and search for “ATARI”. It should take less than one se- 
cond. Then type “GOTO 100” to see the same search performed with 
the BASIC search routing at Line 100. Be prepared to wait awhile. 

This little routine can be used in almost any program requiring a 
search. You culd use it to search for anything in memory — not only 
within a string. Just pass the starting address for the search and the 
number of bytes to search in place of the ADR(TOT$) and LEN(TOTS$). 
You can find multiple occurances of your search string by using the 
USR function over and over again — just changing the starting point 
for the search. 

Of course, to use this search you must binary load the object file in- 
to memory first. 

— C. Mueller 
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TIDBITS 


Reading the Keyboard 

This month I'll cover a few more PEEKs and POKEs and relate some 
methods of getting input from the computer ina program. 

If you have an application where you want to have the cursor disap- 
pear, you can just POKE location 752 with a 1. To turn the cursor back 
on, simply POKE a 0 into 752. 

In many programs | have written, | have found it necessary to read 
the keyboard in such a way as to produce immediate action upon 
pressing a key. If a simple INPUT statement is used, the computer will 
wait for the return key to be pressed before it continues. | know of two 
ways to avoid this delay. The first is a little more complicated than the 
second, and has both advantages and disadvantages. This method in- 
volves first OPENing an input/output control block for input from the 
keyboard. Then one simply uses a GET# statement to read the 
keyboard. This example program illustrates the technique: 


10 OPEN #1,4,0,“K:”:REM open the keyboard for input 

20 GET #1,A:REM the computer will put the ASC value of the key 
pressed into the variable A. Note: It will not print anything on the 
screen. 

30 IF A= ASC("Y") THEN BRANCH ACCORDINGLY:REM compare the 
keypress to what you desire. 

40 GOTO 20:REM loop back for more 

The advantage of this method is it gives us the ASC value of the 
keypress, so we don't need to do any translating. The disadvantage is 
the computer will stop and wait for a keypress, which may not be any 
good in some situations. 

The other method requires the use of the internal code of keypress 
location (764). First you find out the internal code of the key you want 
the program to react to, then you simply test the value in location 764 
to see if it is the one you want. To find the internal code, use this sim- 
ple immediate-mode program: 

FOR Az 0 TO 1 STEP 0:? PEEK(764):NEXT A 

Now push the keys you want to use, and record the values the com- 
puter prints. Then in your program you just need to PEEK 764, com- 
pare it to the value you wanted, and branch accordingly. With this 
method the computer will never stop executing the program to wait for 
the keypress. 

Reading the console keys (START, SELECT, and OPTION) is similar 
to the second method of reading the keyboard. In fact, one does the 
same thing exactly except the location used is 53279. Incidently, to 
clear location 764, POKE it with a 255, and to clear location 53279, 
POKE it with an 8. To make the little speaker inside the computer 
click, POKE 53279 with 7. 

Next time | promise to deal with disk drive tricks. 

— Dale Lutz 
Canada 


BYTES, BITS & NYBBLES 


(reprinted from the August, 1983 issue of Keeping PACE) 


| wish to present a tidbit of Machine Language (ML) and call your at- 
tention to a little known and poorly documented method of incor- 
porating ML subroutines into a BASIC program. Let's start with a very 
simple ML routine and look at the various ways it may be incorporated 
into a BASIC program. the ML routine listed here does nothing more 
than add 5 to a value INPUT from the keyboard. It only works for single 
byte values (0-255) and wraps around so 255 + 5=4 (this is called MOD 
256, but that’s another story). 


Machine Assembler Language 
Key Strokes to Produce 


Decimal ML code Hex code mnemonic 
104 PLA 68 (lower)[h] 
24 CLC 18 [CTRL][X] 
104 PLA 68 (lower)[h] 
104 PLA 68 (lower)[h] 
105 ADC 69 (lower)[i] 
05 -05 05 [CTRL][E] 
141 STA 9D (Atari key) [CTRL][M] 
00 $00 00 [CTRL][,] 
06 $06 06 [CTRL][F] 
96 RTS 60 [CTRL][] 


The general form of a USR function is: Z= USR([address of start of 
ML subroutine], [1st parameter], [2d parameter], [etc.]). When the USR 
call is made the OS loads the stack with the return address, passes 
the parameters (two bytes for each), and caps it off with a single count 
byte of the number of parameters passed. The above subroutine pulls 
off the count byte (PLA) from the stack, clears the carry bit of the 
Status register (CLC) so we start with a clean slate, pulls off the most 
significant byte of the parameter passed from the stack (PLA) (we’ll 
discard this value), pulls off the least significant byte of the parameter 
(PLA), adds (ADC) 5 (#05) to the lo byte of the parameter passed, stores 
the result (STA) into memory location 1536 ($001$06), and returns from 
the subroutine. 

To establish the ML routine in a BASIC program, you are generally 
instructed to do some variation of one of the following: 

1. POKE it into a reserved memory area — ¡.e., page 6. 

10 GOSUB 100 

15 GRAPHICS 0:POSITION 5,5:? “INPUT A “INPUT A 

20 Z= USR(1537,A) 

30 POSITION 5,10:? A;” + 5= ”;PEEK(1536) 

40 END 

100 FOR X=1 TO 10:READ BYTE:POKE 1536 + X,BYTE:NEXT 
X:RETURN 

101 DATA 104,24,104,104,105,5,141,0,6,96 


2. POKE it into a space above your BASIC program (making these 
changes to Program 1): 

9 DIM E$(1):REM E$ should be the last thing dimensioned 

20 Z = USR(ADR(E$) + 1,A) 

100 FOR X=1 TO 10:READ BYTE:POKE ADR(E$) + X,BYTE:NEXT 
X:RETURN 


3. Assign it to a string by program control (making these changes to 
Program 1): 

5 DIM E$(10) 

20 Z = USR(ADR(E$),A) 

100 FOR X=1 TO 10:READ BYTE:ES(X,X) = CHR$(BYTE):NEXT 
X:RETURN 


If you've used ML subroutines at all you are most likely familiar with 
these methods. Now try this: 

10 GRAPHICS 0:POSITION 5,5:? “INPUT A “INPUT A 

20 Z=USR(ADR(* ...*... “),A):REM “...*...” is the sequence of key 
strokes as indicated in the table above 

30 POSITION 5,10:? A;” + 5”;PEEK(1536): ?: ? 

40 END 


You’ll notice | PEEKed the answer. Normally "Z" will hold the 


answer (taken from 212,213 — lo,hi), but in this case “Z” is equal to the 


memory location of the first byte of the ML subroutine within the 
BASIC Statement Table. After all, if you've got the byte sequence set 
up in the BASIC Statement Table why write it out again in some other 
memory area? In addition, if you need to call the ML subroutine 
elsewhere in a program you can use the value of “Z” to locate it — 
USR(Z,A). 

On pages 10-17 of “De Re Atari", number 19 states “Small assembly 
routines can be stored in USR calls" and gives one example. That's it 
— the total documentation of this elegant and memory-efficient 
method for calling short ML routines. 

The advantages of this method are two fold: It saves time and 
memory by using the routine from the BASIC Statement Table (since 
you don't have to POKE the subroutine into memory); and the variable 
used to make the USR call (Z = USR(ADR("...")) can be used to make a 
later call (X = USR(2)). 

— John David McFarland III 
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VECTORS & ADDRESSES 


(reprinted from the November, 1983 issue of the Atari Computer Club 
of OKC) 


Now it’s show & tell time for my latest how-to in ML. In spite of all 
the great things | said about the Synassembler last time, | am NOT 
selling my Assembler-Editor cartridge (Atari). | still have use for a 
VERY compact, simple Assembler in incorruptable ROM. This means 
it rarely crashes when | change an operating parameter. 

As I’ve mentioned before, almost everything in the Atari Operating 
System (OS) is vectored. The reasoning is that if a ROM must be 
changed (revised) then every piece of software jumping to the loca- 
tions may not be able to find the place it’s supposed to go. Either the 
routine has been moved, or since it is not common to leave much extra 
space in ROM, it may have been moved around somewhat to make 
room for another routine which had to be added or fixed. The solution 
in the 400, 600, 800, 1200, 1400 series is to have pointers. The pointers 
(called vectors) are places holding the locations of the actual routines 
or hardware addresses. These are “guaranteed” not to be moved by 
Atari. So, even if it IS redundant to jump to a location merely to tell you 
to go to another location, there is a method to the madness. If 
something does get changed on the destination end (to which the vec- 
tor points) the original software program doesn't need to be changed, 
just the address in the vector. All the original program has to do is 
remember where the vector is and go there, Atari will take care of the 
rest. 

Another side benefit of this is there is really no reason a person who 
is aware of the operations can't change the vectors to point to their 
own routines first. For example, when a key is pressed, it generates an 
interrupt request to the CPU. This means “stop what you're doing and 
checkout the keyboard if you're not too busy.” Normally, the CPU will 
then jump through or go to a vector telling it where the keyboard 
routine is in the OS. HOWEVER, put your own routine in, cange the 
pointer (or vector) to point to it, and instead you can go to your own 
routine. 


WHY? As it infers in De Re Atari (the inspiration for this stuff): He 
who controls the keyboard controls the system. If the system goes to 
your routine 1st, your routine (another name for a short program) can 
change anything about keyboard input. My program simply checks to 
see if the key pressed is CTRL-W. If not, it goes back to where the 
original vector went. If it makes it through the 1st “filter” (IS a CTRL-W) 
then the rest of the routine executes. 

Again, WHY? The reasoning behind this involves modems and me. 
At 300 baud | have no problems — if you want to stop everything from 
going by for a moment, you hit CTRL-S (called X-Off). This suspends 
the sending of data until you hit CTRL-Q (X-On) to go on. Fine! Now | 
work with a larger system using 1200 baud and 80 column lines. At 
1200 baud the words are appearing on the screen (via the phone) 4x as 
fast and long lines of text don’t end at the edge of the screen but wrap 
around, making some words hard to read. By the time | can look down 
at the keys and put my slow fingers on the CTRL and S keys, what | 
wanted to read — | said I’m slow! — is gone. So'l redefined one of the 
keys as above so that if CTRL-W is pressed, it'll get through the filter 
and cause my code to check flags (to see what was sent last) and then 
tell the CPU (lie to it) and tell it the key pressed was either a CTRL-S or 
CTRL-Q (always opposite of the one sent last time). The next benefit of 
ths is | can now hit one key and the modem stops sending. Hit another 
and it resumes. Now, why go to all this trouble? Well, of course this is 
only a how-to. You don’t have to do anything as insignificant as this. 
It’s elegant and you don’t have to modify or even know what the pro- 
gram does. Just pick any key it doesn’t normally use and redefine it. 


Only 3 other things ought to be mentioned. When the OS gets (and - 


responds to) one of these interrupts it 1st pushes whatever value it 
was working on before interruption (the accumulator) onto a temporary 
storage location called “the stack”. This is just a group of locations 
used for temporary storage. Before RTI (ReTurn from Interrupt) you 
should put it back as it was (PLA or PuLI Accumulator from stack). The 
Atari Assembler reserves 2 memory locations for an address when it 
sees a label, so what | did was LDA with 8 bits of the Vector destina- 
tion and put it into part of the space left blank for JMP during the first 
pass of the Assembler. | then repeated this for the other half of the ad- 
dress (addresses are 16 bits long and the accumulator only 8). This is a 
very often used method of “moving a vector” because, even if Atari 
changes the ROMs and destination address, you’re still going to 
wherever the vector said and you don’t even have to know what the ad- 
dress in it was. The third note is that none of the codes for the keys are 
yet ASCII. The OS was in the process of getting info from the keyboard 
and that info is in the internal form or the actual value produced by the 
keyboard matrix. As always, there are lots of comments in the code to 
tell you play-by-play what’s going on. 

Parting Note: | don’t charge for the programs | write in these pages 
(they're about as sellable as a board with a hole...HEY!...), but if you 
ever want to use a close derivative of one in your programs, newslet- 
ter, or magazine, | just love to see my name in print (I’m a ham), so you 
might mention ‘lil ol me. Thank you. 


10 
20 


30 
35 


40 
50 


65 
70 


80 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 


0181 
0190 
0210 
0220 
0230 


0260 


0265 
0270 


0280 


0290 


0310 
0315 


0320 
0330 
0334 
0338 
0340 
0350 
0360 


0370 
0380 


0400 
0410 
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‘VKEY.SRC—TOGGLES BETWEEN SENDING CTL-S OR 
CTL-Q (STOP & START FOR TELECOMM) WHEN CTL-W 
(FOR CONTROL-WAIT) IS PRESSED. THIS WORKS BY 
RE-ROUTING KEYBOARD VECTOR 

-ADAPTED FROM PG. 8-15 OF DE RE ATARI 

(NOTE THIS IS INTENDED AS AN AUTORUN FILE—NOT 
A BASIC USR CALLED FUNCTION 

CH - $2FC 

KBCODE - $D209 

VKEYBD - $0208 

-!NINOTICE ORIGIN!!! 

* = $3FD 1 PUT IT IN CASSETTE BUFFER—IF YOU 
WANT TO USE CASSETTE— BETTER MOVE IT! 

START SEI SO WON'T BE BOTHERED WHILE MOVING 
VECTOR (INSURANCE) 

LDA VKEYBD ;STEAL KEY VECTOR 

STA JUMP +1 ;& PUT IN AT END 

LDA VKEYBD +1 ;OF MY CODE 

STA JUMP +2 

LDA #REP&255 ¡NOW GET ADR 

STA VKEYBD ¡OF MY STUFF 

LDA #REP/256 ;& PUT IN INTERRUPT 

STA VKEYBD +1 :VECTOR FOR KEYBOARD 

CLI :RE-ENABLE KEY INTERRUPTS 

RTS ¡BACK FOR REST OF DOS IF AUTORUN FILE—EL 
CRASHO OTHERWISE (BUT ATARI DEBUG 
RECOVERS—SO OK 

‘TO TEST A USE WITH IT) 

REP LDA KBCODE ;CHK CODE 

CMP #$AE ;CTL-W? 

BNE JUMP ¡NAH! SEND IT ON 

LDA FLGB ¡SEE WHAT | SENT LAST TIME THROUGH 
EOR #$FF ;FLIP FLAG (DID IT 1ST SO | WOULDN'T 
HAVE TO DO IT FOR EACH CASE AFTER BRANCH) 
STA FLGB ¡PUT NEW VALUE BACK! (00 OR $FF) 

BNE STP :99e OF THE TIME, FLGB WOULD HAVE BEEN 
0 BEFORE XOR, SO | GO TO ROUTINE TO SEND CTL-S 
(DOESN'T MATTER A LOT WHAT FLGB WAS BEFORE 
THOUGH...ALWAYS SEND ONE OR THE OTHER —TOG- 
GLE— SO IF IT DOESN'T 

WORK 1ST TIME JUST PRESS CTL-W AGAIN) 

GO LDA #$AF ;IF NOT STP-THEN 

STA CH ¡SEND A CTL-Q 

PLA ¡RESTORE A REG.O.S. PUT IT ON STACK WHEN 
INTERRUPT OCCURED) 

RTI 

STP LDA #$BE ¡SEND CTL-S 

STA CH 

PLA ¡RESTORE A REGISTER (SEE ABOVE) 

RTI 


JUMP JMP JUMP ;REAL O.S. VECTOR GETS MOVED TO 
ARG. OF JMP HERE 

FLGB .BYTE 00 ;FLAG BYTE 

¡THIS IS LOAD ‘N’ GO VECTOR SO IT WILL START RUN- 
NING AS SOON AS ENTERED BY DOS 

* = $02E0 

.WORD START 


TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor,.and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line” 
And it’s easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


ld & Design Services 


IMC» 
30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books 


Volume 1 are bound issues of the ACE Newsletter from the first issue, 
Oct 80 to June of 1982 


Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 

45-602 Apuapu St 

Kanoehe, HI 96744 

SortFinder 1.2 

Composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 


2660 S.W. DeArmond 
Corvallis, OR 97333 


i Arar 
A Computer 


i ENTHUSIASTS ` 
3662 Vine Maple Dr Eugene OR 97405 


FIRST 
CLASS 
MAIL 








Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep’t: 3662 Vine Maple Dr., Eugene, OR 97405. 


President»... joa. sangra ena seed. asezarbbe Kirt Stockwell 
4325 Sean , Eugene, OR 97402 / 503-689-5355 

VICS AMOS 4 5. a2. podia. 2 pad 0958201 aons, Larry Gold 
1927 McLean Blvd., Eugene, Or 97405 / 503-686-1490 

Secretary ia: pacc. ron aro eum! ioe inni et Bruce Ebling 
1501 River Loop #1, Eugene, OR 97404 / 503-688-6872 

Librarian. -asi A wn anth.orat}.oo Ane lie g Ron and Aaron Ness 
374 Blackfoot, Eugene, Or 97404 (503)689-7106. 

GO-EGION ..<. isena co olina aia al cid iomaned.ebie. Mike Dunn 
3662 Vine Maple Dr., Eugene, Or 97405 / 503-344-6193 

COEM. Ji. tardara as ts lanes sod Sec d Jim Bumpas 
4405 Dillard Rd., Eugene, Or 97405 / 503-484-9925 

EP E (Education SIG. Editon) Ate o Ai pasesiveb a Ali Erickson 
295 Foxtail Dr., Eugene, Or 97405 / 503-687-1133 

E.R.A.C.E. Corresponding Secretary .............. Robert Browning 


90 W. Myoak, Eugene, OR 97404 / (503)689-1513 


Send 27c stamps or coin (50c overseas) to the Ness' for the new, up- 
dated ACE Library List —new in Feb 84! 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2 double density 
Percom disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov ’82 issue 
for complete details. 


